﻿Imports System.ComponentModel 
Imports System.Collections


Public Class CTEnvioCarta
    Private _IdPs As Long
    Private _IdPej As Long
    Private _SecDistrib As Long
    Private _IdIntermediario As Long
    Private _CantidadActual As Double
    Private _IdTvNg As Long
    Private _TvNg As String
    Private _Plazo As Long
    Private _Intermediario As String
    Private _Tasa As Double
    Private _FechaSolicitud As Date
    Private _FechaLiquidacion As Date
    Private _Monto As Double
    Private _Estatus As String
    Private _FechaUltimoEnvio As String
    Private _FolioDecalog As String
    Private _Seleccion As Boolean
    Private _Agrupador As String

Public Enum enumEstatusCarta
 ENVIADA = 1
 NO_ENVIADA = 2
End Enum

#Region "Porpiedades de la clase"
    
Public Property IdPs As Long
    Get
        IdPs = Me._IdPs
    End Get
    Set(ByVal value As Long)
        Me._IdPs = value
    End Set
End Property

Public Property IdPej As Long
    Get
        IdPej = Me._IdPej
    End Get
    Set(ByVal value As Long)
        Me._IdPej = value
    End Set
End Property

Public Property SecDistrib As Long
    Get
        SecDistrib = Me._SecDistrib
    End Get
    Set(ByVal value As Long)
        Me._SecDistrib = value
    End Set
End Property

Public Property IdIntermediario As Long
    Get
        IdIntermediario = Me._IdIntermediario
    End Get
    Set(ByVal value As Long)
        Me._IdIntermediario = value
    End Set
End Property

Public Property CantidadActual As Double
    Get
        CantidadActual = Me._CantidadActual
    End Get
    Set(ByVal value As Double)
        Me._CantidadActual = value
    End Set
End Property

Public Property IdTvNg As Long
    Get
        IdTvNg = Me._IdTvNg
    End Get
    Set(ByVal value As Long)
        Me._IdTvNg = value
    End Set
End Property

Public Property TvNg As String
    Get
        TvNg = Me._TvNg
    End Get
    Set(ByVal value As String)
        Me._TvNg = value
    End Set
End Property

Public Property Plazo As Long
    Get
        Plazo = Me._Plazo
    End Get
    Set(ByVal value As Long)
        Me._Plazo = value
    End Set
End Property

Public Property Intermediario As String
    Get
        Intermediario = Me._Intermediario
    End Get
    Set(ByVal value As String)
        Me._Intermediario = value
    End Set
End Property

Public Property Tasa As Double
    Get
        Tasa = Me._Tasa
    End Get
    Set(ByVal value As Double)
        Me._Tasa = value
    End Set
End Property

Public Property FechaSolicitud As Date
    Get
        FechaSolicitud = Me._FechaSolicitud
    End Get
    Set(ByVal value As Date)
        Me._FechaSolicitud = value
    End Set
End Property

Public Property FechaLiquidacion As Date
    Get
        FechaLiquidacion = Me._FechaLiquidacion
    End Get
    Set(ByVal value As Date)
        Me._FechaLiquidacion = value
    End Set
End Property

Public Property Monto As Double
    Get
        Monto = Me._Monto
    End Get
    Set(ByVal value As Double)
        Me._Monto = value
    End Set
End Property

Public Property Estatus As String
    Get
        Estatus = Me._Estatus
    End Get
    Set(ByVal value As String)
        Me._Estatus = value
    End Set
End Property

Public Property FechaUltimoEnvio As String
    Get
        FechaUltimoEnvio = Me._FechaUltimoEnvio
    End Get
    Set(ByVal value As String)
        Me._FechaUltimoEnvio = value
    End Set
End Property

Public Property FolioDecalog As String
    Get
        FolioDecalog = Me._FolioDecalog
    End Get
    Set(ByVal value As String)
        Me._FolioDecalog = value
    End Set
End Property

Public Property Seleccion() As Boolean
    Get
        Return _Seleccion
    End Get
    Set(ByVal value As Boolean)
        _Seleccion = value
    End Set
End Property

Public ReadOnly Property Agrupador As String
    Get
        Agrupador = Me._IdPs & ".-" & Me._TvNg & Chr(9) & Chr(9) & Chr(9) & Me._CantidadActual.ToString("##,##0.00")
    End Get
End Property
    

#End Region
End Class
